Notes/Domino 6 and 7 Forum : in LScript

Notes/Domino 6 and 7 Forum

in LScript

in LScript
Posted by ~Phil Nimtoolyynds on 22.Jan.04 at 02:44 PM using a Web browser
Category: Applications Development

Release: All Releases

Platform: All Platforms

Try this:

Forall a In srcDb.Agents
If a.Name = sAgentName Then
Set agent = a
On Error 4000 Goto ERRORLABEL
If agent.RunOnServer() = 0 Then
On Error Goto 0
msg = "END " & a.name & " ran successfully"
Exit Forall
Else
On Error Goto 0
msg = "END " & a.name & " ran with failure"
Exit Forall
End If
End If
End Forall